library("R2jags")
m3c.fitjags <- jags(data = m3dl, parameters.to.save = m3.params, n.chains = 3,
                    inits = m3.inits, n.iter = 100000, n.burnin = 2000, n.thin = 10,
                    model.file = m3.modjags)